Mac Magazin/MacEasy 19/Mac Magazin and MacEasy Magazine CD - Issue 19.iso/Grafik & Text & Film/Quark XTensions/Freeware Xtensions/XPress Scripts 1.0/Delete Guides/Delete Guides

Text File | 1994-08-10 | 887b | 34 lines

tell application "QuarkXPress 3.3"
    activate
    if document 1 exists then
        tell document 1
            copy name to docName
            copy (display dialog "Delete all guides in:" & return & "'" & docName & "'?" with icon 2000) to x
            do updates
            if button returned of x is "OK" then
                tell every spread
                    if every vertical guide exists then
                        delete every vertical guide
                    end if
                    if every horizontal guide exists then
                        delete every horizontal guide
                    end if
                end tell

                tell every page
                    if every vertical guide exists then
                        delete every vertical guide
                    end if
                    if every horizontal guide exists then
                        delete every horizontal guide
                    end if
                end tell
            end if
        end tell
    else
        beep
        display dialog "This script requires an" & return & "open QuarkXPress document." buttons "OK" default button 1 with icon 1
        do updates
    end if
end tell